REPORT 


ZDEMO INTERACTIVE REPORTS. 


TYPES : BEGIN OF TY LFAI, 
LIFNR TYPE LIFNR, 
NAME1 TYPE NAMEL GP, 
ORTO1 TYPE ORTO1 GP, 
LAND1 TYPE LANDI GP, 
END OF TY LFAI. 


TYPES: BEGIN OF TY EKKO, 
EBELN TYPE EBELN, 
AEDAT TYPE ERDAT, 
END OF TY EKKO. 


DATA : WA LFAL TYPE ty LFAL, 
IT LFAL TYPE TABLE OF TY LFAL, 
V LIFNR TYPE LIFNR, 
WA EKKO TYPE TY EKKO, 
IT EKKO TYPE TABLE OF TY EKKO. 


SELECT-OPTIONS S LIFNR FOR V LIFNR DEFAULT 1 TO 
100. 


SELECT LIFNR NAMEL ORTO1 LAND1 
INTO TABLE IT LFAT 
FROM LFA1 
WHERE LIFNR IN S LIFNR. 


LOOP AT IT_LFA1 INTO WA LFAL. 

WRITE :/ wa Ifal-lifnr color 1, WA_LFA1-NAME1 COLOR 
2,wa lfal-ortOl color 7,WA_LFA1-LAND1 COLOR 4. 
ENDLOOP. 


AT LINE-SELECTION. 
V LIFNR = SY-LISEL+0(10). 
CALL FUNCTION 'CONVERSION EXIT ALPHA INPUT' 
EXPORTING 


INPUT = V_LIFNR 
IMPORTING 
OUTPUT = V LIFNR 


SELECT EBELN AEDAT INTO TABLE IT EKKO FROM EKKO 
WHERE LIFNR = V LIFNR. 


IF IT EKKO IS NOT INITIAL. 
LOOP AT IT EKKO INTO WA EKKO. 
WRITE :/ WA EKKO-EBELN color 3, wa ekko-aedat color 
2. 
ENDLOOP. 
ELSE. 
WRITE :/ 'NO DATA found". 
ENDIF. 


